home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 134
/
Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
file recovery
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
84 lines
20 dn$=""
21 rt$="":rt$=rt$+rt$
22 c0$=chr$(0):cr$=chr$(13):ex$=chr$(147)
23 sp$=" "
80 dimfl$(223),t%(223),s%(223),dt%(223),ds%(223),bl%(223)
90 m=53280:pokem,1:pokem+1,1:poke53272,23:open1,8,15:goto1000
500 rem *** read scratched directory [9,0,fl$(fl%)]
501 open9,8,9,"#":t%=18:s%=1:fl%=0
502 fl%=0:print#1,"u1"9;0;t%;s%:print#1,"b-p"9;0
503 get#9,nt$:nt%=0:ifnt$<>""thennt%=asc(nt$)
504 get#9,ns$:ns%=0:ifns$<>""thenns%=asc(ns$)
505 fori=2to226step32:print#1,"b-p"9;i:get#9,ty$:ifty$<>""goto511
506 get#9,t$:ift$=""thent$=c0$:goto511
507 get#9,s$:ifs$=""thens$=c0$
508 t%(fl%)=asc(t$):s%(fl%)=asc(s$):dt%(fl%)=t%:ds%(fl%)=s%:bp%(fl%)=i
509 print#1,"b-p"9;i+19:print#9,chr$(13);:print#1,"b-p"9;i+3
510 input#9,fl$(fl%):fl%=fl%+1
511 nexti:t%=nt%:s%=ns%:ift%<>0goto502
512 close9:return
600 rem *** get link [9(open),nt%,ns%]
601 print#1,"u1"9;0;t%;s%:print#1,"b-p"9;0
602 get#9,nt$:nt%=0:ifnt$<>""thennt%=asc(nt$)
603 get#9,ns$:ns%=0:ifns$<>""thenns%=asc(ns$)
604 return
700 rem *** allocate and check
701 print#1,"b-a"0;t%;s%:gosub900:ok%=1:ifen$="65"thenok%=0
702 return
900 rem *** disk error check
901 input#1,en$:ifen$="00"oren$="65"thenreturn
902 print" disk error #"en$:(NULL):stop
1000 print"[147][149] 1541 [211][195][210][193][212][195][200][197][196][160][198][201][204][197][160][210][197][195][207][214][197][210][217] "
1001 rem *** select file
1010 print" [201]nsert diskette in drive #0 "
1015 print" [210][197][212][213][210][206][146] = ready [195][204][210][146] = stop "
1020 getg$:ifg$<>cr$andg$<>ex$goto1020
1025 if g$ = ex$ then end
1030 print#1,"i0":gosub900:open9,8,9,"#":print#1,"u1"9;0;18;0
1040 print#1,"b-p"9;165:print#9,cr$;:print#1,"b-p"9;144:input#9,id$:close9
1050 print"[145] [196][201][211][203]: "id$" "
1055 print" y [146] = accept n [146] = reject "
1060 getg$:ifg$<>"y"andg$<>"n"goto1060
1070 print"[145]"sp$:ifg$="n"goto1000
1075 gosub500
1080 print"[147]"
1085 print" [211][195][210][193][212][195][200][197][196][160][198][201][204][197][160][196][201][210][197][195][212][207][210][217][160]"
1086 print"### filename [212] [211][160]"
1087 print"--------------------------"
1090 fori=0tofl%step20:forj=0to19:printright$(" "+str$(i+j+1),3);
1100 print" "left$(fl$(i+j)+sp$,16);
1105 printright$(str$(t%(i+j)),2)" "right$(str$(s%(i+j)),2):nextj
1110 input" [210][197][195][207][214][197][210][160]# ([210][197][212][213][210][206] to see more) [146][160][160][160][157][157][157]";rc$
1120 rc%=val(rc$):ifrc%<>0theni=fl%
1130 nexti:ifrc%<>0goto1180
1140 printleft$(dn$,24)" [197][206][196][160][207][198][160][196][201][210][197][195][212][207][210][217] - [210][197][208][197][193][212](y/n)?[160][146] ";
1150 getg$:ifg$<>"y"andg$<>"n"goto1150
1160 ifg$="y"goto1085
1170 print"[147]":goto1000
1180 rc%=rc%-1:iffl$(rc%)=""goto1140
1200 print"[147] [210][197][195][207][214][197][210]: "fl$(rc%)" "
1210 print" y [146] = accept n [146] = reject "
1220 getg$:ifg$<>"y"andg$<>"n"goto1220
1230 ifg$="n"thenprint"[145]"sp$:goto1080
1240 print"[145] s [146]=[211][197][209] u [146]=[213][211][210] p [146]=[208][210][199] ?"
1250 getg$:ifg$<>"s"andg$<>"u"andg$<>"p"goto1250
1260 ty%=130:ifg$>"p"thenty%=129:ifg$>"s"thenty%=131
1270 t%=t%(rc%):s%=s%(rc%):bl%=0:open9,8,9,"#":xt%=t%:xs%=s%
1280 print"[145] [210][197][195][207][214][197][210][217][160][201][206][160][208][210][207][199][210][197][211][211] "
1290 print""left$(rt$,38)chr$(15);
1300 gosub700:ifok%=0goto1400
1305 bl%=bl%+1:print""right$(" "+str$(t%),3)right$(" "+str$(s%),3);
1310 gosub600:ifnt%=0goto1500
1320 xt%=t%:xs%=s%:t%=nt%:s%=ns%:goto1300
1400 ifxt%=t%andxs%=s%thenme$=" [206][207] [210][197][195][207][214][197][210][217][160][208][207][211][211][201][194][204][197] ":goto1600
1405 print#1,"u1"9;0;xt%;xs%:print#1,"b-p"9;255:print#9,cr$;:ifty%=130goto1420
1410 print#1,"b-p"9;253:print#9,c0$c0$c0$;
1420 print#1,"u2"9;0;nt%;ns%
1430 me$=" [208][193][210][212][201][193][204][160][210][197][195][207][214][197][210][217][160][207][206][204][217] "
1500 print#1,"u1"9;0;dt%(rc%);ds%(rc%):print#1,"b-p"9;bp%(rc%)
1510 print#9,chr$(ty%);:print#1,"b-p"9;bp%(rc%)+28
1520 hi%=bl%/256:lo%=bl%-hi%*256:print#9,chr$(lo%)chr$(hi%);
1530 print#1,"u2"9;0;dt%(rc%);ds%(rc%)
1600 ifme$=""thenme$=" [198][213][204][204][160][210][197][195][207][214][197][210][217][160][211][213][195][195][197][211][211][198][213][204][160] [160]"
1610 close9:close15:print"[147]"me$:end